Add intro text later
Responses by economic region
tm_shape(map_and_data)+
tm_polygons("count",
id="ERNAME",
palette="Blues",
alpha=0.5,
legend.show=TRUE,
popup.vars=c("Economic Region"="ERNAME","Province"="prov","Count of responses"="count"))
Notes